home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
HAMRADIO
/
LOGBOOK.ZIP
/
AWARD.PRG
< prev
next >
Wrap
Text File
|
1986-08-29
|
4KB
|
140 lines
* AWARD VERSION 860826 (c) COPYRIGHT 1985,1986 JOE KASSER G3ZCZ
ERASE
@ 5,11 SAY 'G3ZCZ GENERIC AWARD PACKAGE VERSION 1.3'
@ 7,1 SAY 'Default AWARD database is'
@ 7,30 SAY award
@ 8,1 SAY 'Default LOG database is'
@ 8,30 SAY logbook
@ 22,1 SAY 'What AWARD file '
@ 22,25 GET award
READ
IF FILE(award+'.DBF')
ELSE
? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
DO WHILE task <> '*'
ERASE
@ 5,11 SAY 'G3ZCZ GENERIC AWARD PACKAGE VERSION 1.3'
@ 7,1 SAY 'Default AWARD database is'
@ 7,30 SAY award
@ 8,1 SAY 'Default LOG database is'
@ 8,30 SAY logbook
@ 10,1 SAY 'UPDATE AWARD RECORDS U'
@ 11,1 SAY 'CREATE A NEW AWARD DATABASE C'
@ 12,1 SAY 'PRINT AWARD RECORDS P'
@ 13,1 SAY 'CHANGE AWARD DATABASE D'
@ 14,1 SAY 'CHANGE LOGBOOK L'
@ 15,1 SAY 'DISPLAY FILES ON DISK DRIVE F'
@ 20,1 SAY 'QUIT THIS MENU *'
@ 22,1 SAY 'QRU'
@ 22,5 GET task
READ
DO CASE
CASE task = 'F'
ERASE
ACCEPT 'WHICH DRIVE ' TO diskdrive
STORE diskdrive + ':' TO diskdrive
DISPLAY FILES ON &diskdrive
RELEASE diskdrive
WAIT
CASE task = 'D'
@ 22,1 SAY 'What AWARD file '
@ 22,25 GET award
READ
IF FILE(award+'.DBF')
ELSE
? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
CASE task = 'U'
IF logbook = ' '
@ 23,1 SAY 'OPEN A LOGBOOK FIRST'
ELSE
IF FILE(award+'.DBF')
IF FILE (logbook+'.DBF')
DO AWARDEDT
ELSE
? 'ERROR, LOGBOOK IS NOT PRESENT ON DESIGNATED DRIVE'
WAIT
ENDIF
ELSE
? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
ENDIF
CASE task = 'P'
IF FILE (award+'.DBF')
ERASE
STORE ' ' TO choice
@ 5,1 SAY ' '
ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ' TO choice
@ 10,1 SAY ' '
IF CHOICE = 'P' .OR. CHOICE = 'W' .OR. CHOICE = 'Q'
STORE ' ' TO pf
ACCEPT 'Do you want hard copy (Y/N) ?' TO pf
DO AWARDPRN
RELEASE pf
ELSE
? CHOICE,' IS NOT VALID, ENTER P or W or Q only please '
WAIT
ENDIF
ELSE
? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
CASE task = 'C'
STORE ' ' TO blank
IF FILE(award+'.DBF')
ACCEPT 'What is the name of the new AWARD file ? ' TO naward
IF LEN( naward) = 1
? ' ERROR BLANK FILE NAMES NOT ALLOWED'
WAIT
ELSE
IF FILE(naward+'.DBF')
? 'ERROR, FILE ALREADY EXISTS'
WAIT
ELSE
?
? 'CREATING blankaward FILE'
USE &award
COPY STRUCTURE TO &naward
USE &naward
INDEX ON pc TO &naward
STORE naward TO award
?
? 'NEW BLANK AWARD FILE CREATED'
USE
ENDIF
ENDIF
RELEASE blank,naward
ELSE
? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
CASE task = 'L'
@ 22,1 SAY 'Which Log file '
@ 22,15 GET logbook
READ
IF FILE (logbook+'.DBF')
@ 22,1 SAY ' '
ELSE
@ 22,1 SAY ' '
? 'ERROR, ',logbook, 'IS NOT PRESENT ON DRIVE'
WAIT
ENDIF
ENDCASE
ENDDO
STORE ' ' TO task
RETURN